home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Camelot
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip
/
Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf
/
XLisp-Stat
/
Test
/
man.lsp
< prev
next >
Wrap
Text File
|
1990-10-11
|
1KB
|
36 lines
(setf w (send graph-window-proto :new))
(send w :frame-rect 170 100 60 50)
(send w :frame-rect 185 115 5 5)
(send w :frame-rect 210 115 5 5)
(send w :frame-rect 198 120 5 15)
(send w :frame-rect 185 140 30 3)
(send w :frame-rect 165 120 5 10)
(send w :frame-rect 165 120 5 10)
(send w :frame-rect 230 120 5 10)
(send w :frame-rect 190 150 20 10)
(send w :frame-rect 120 160 160 120)
(send w :frame-rect 80 160 40 30)
(send w :frame-rect 60 140 20 50)
(send w :frame-rect 58 130 25 10)
(send w :frame-rect 58 125 6 5)
(send w :frame-rect 64 120 6 10)
(send w :frame-rect 70 115 6 15)
(send w :frame-rect 76 120 6 10)
(send w :frame-rect 83 130 5 4)
(send w :frame-rect 280 160 40 30)
(send w :frame-rect 320 160 20 50)
(send w :frame-rect 318 210 25 10)
(send w :frame-rect 313 215 5 5)
(send w :frame-rect 337 220 6 5)
(send w :frame-rect 331 220 6 7)
(send w :frame-rect 325 220 6 10)
(send w :frame-rect 319 220 6 7)
(send w :frame-rect 120 280 50 40)
(send w :frame-rect 230 280 50 40)
(send w :frame-rect 120 320 50 20)
(send w :frame-rect 230 320 50 20)
(send w :frame-rect 115 340 60 10)
(send w :frame-rect 225 340 60 10)
(send w :draw-string "Not a self portrait." 125 375)